inherited frmFatura_Carga: TfrmFatura_Carga
  Left = 168
  Top = 97
  Caption = 'Faturamento de Carga'
  ClientHeight = 508
  ClientWidth = 726
  OldCreateOrder = True
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 726
    Height = 49
    object Label1: TLabel
      Left = 24
      Top = 20
      Width = 79
      Height = 14
      Caption = 'Carga N'#250'mero'
    end
    object c_carga: TSpeedButton
      Left = 184
      Top = 16
      Width = 23
      Height = 22
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = c_cargaClick
    end
    object ed_carga: TEdit
      Left = 112
      Top = 16
      Width = 65
      Height = 22
      CharCase = ecUpperCase
      MaxLength = 6
      TabOrder = 0
      OnEnter = ed_cargaEnter
      OnExit = ed_cargaExit
      OnKeyDown = ed_cargaKeyDown
      OnKeyPress = ed_cargaKeyPress
    end
  end
  inherited Panel2: TPanel
    Top = 49
    Width = 726
    Height = 371
    object PageControl1: TPageControl
      Left = 3
      Top = 3
      Width = 720
      Height = 365
      ActivePage = TabSheet2
      Align = alClient
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = 'Pedidos e Itens'
        object p_pedidos: TGroupBox
          Left = 0
          Top = 0
          Width = 712
          Height = 166
          Align = alTop
          Caption = ' Pedidos :'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object Label9: TLabel
            Left = 704
            Top = 56
            Width = 51
            Height = 15
            Caption = 'Natureza'
          end
          object dbgPedidos: TDBGrid
            Left = 2
            Top = 17
            Width = 708
            Height = 136
            Align = alTop
            DataSource = dsped
            FixedColor = 14081504
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = [fsBold]
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Arial'
            TitleFont.Style = [fsBold]
            OnCellClick = dbgPedidosCellClick
            OnDblClick = dbgPedidosDblClick
            OnKeyDown = dbgPedidosKeyDown
            OnKeyUp = dbgPedidosKeyUp
            Columns = <
              item
                Expanded = False
                FieldName = 'bkpPedido'
                Title.Caption = 'Pedido'
                Width = 78
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Pedido'
                Visible = False
              end
              item
                Expanded = False
                FieldName = 'Ent_codigo'
                Title.Caption = 'Cliente'
                Width = 61
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Ent_nome'
                Title.Caption = 'Nome'
                Width = 378
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ordem'
                Title.Caption = 'Ordem de Entrega'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'CFOP'
                Title.Caption = 'C'#243'd. Fiscal'
                Width = 67
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Natureza'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Regra'
                Title.Caption = 'Regra de Pagamento'
                Visible = True
              end>
          end
        end
        object gbItens: TGroupBox
          Left = 0
          Top = 167
          Width = 712
          Height = 169
          Align = alBottom
          Caption = ' Itens :'
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          TabStop = True
          object dbgItens: TDBGrid
            Left = 2
            Top = 17
            Width = 708
            Height = 148
            Align = alTop
            Color = clInfoBk
            DataSource = dsItens
            FixedColor = 14081504
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = [fsBold]
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Arial'
            TitleFont.Style = [fsBold]
            OnDblClick = dbgItensDblClick
            OnEnter = dbgItensEnter
            OnKeyDown = dbgItensKeyDown
            Columns = <
              item
                Expanded = False
                FieldName = 'Pro_codigo'
                Title.Caption = 'Produto'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'pr_nome'
                Title.Caption = 'Descri'#231#227'o'
                Width = 317
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'qtde'
                Title.Caption = 'Quantidade'
                Width = 73
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'vlr_unit'
                Title.Caption = 'Vlr. Unit'#225'rio'
                Width = 81
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'codFisc'
                Title.Caption = 'C'#243'd. Fiscal'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Faturado'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Pedido'
                Visible = False
              end
              item
                Expanded = False
                FieldName = 'ped_item'
                Visible = False
              end>
          end
        end
        object p_impressao: TPanel
          Left = 683
          Top = 272
          Width = 497
          Height = 129
          BevelInner = bvLowered
          BorderWidth = 3
          Color = 14081504
          TabOrder = 2
          Visible = False
          object lb_impressao: TLabel
            Left = 19
            Top = 27
            Width = 140
            Height = 14
            Caption = 'Imprimindo Nota Fiscal  ...'
            Font.Charset = ANSI_CHARSET
            Font.Color = 215
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object gb: TGauge
            Left = 17
            Top = 64
            Width = 462
            Height = 26
            Progress = 0
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Dados para Faturamento'
        ImageIndex = 1
        object Label2: TLabel
          Left = 24
          Top = 10
          Width = 113
          Height = 14
          Caption = 'Data de Faturamento'
        end
        object Label4: TLabel
          Left = 338
          Top = 10
          Width = 29
          Height = 14
          Caption = 'S'#233'rie'
        end
        object Label3: TLabel
          Left = 534
          Top = 10
          Width = 47
          Height = 14
          Caption = 'NF Inicial'
        end
        object Label6: TLabel
          Left = 53
          Top = 41
          Width = 84
          Height = 14
          Caption = 'Data de Entrada'
        end
        object Label10: TLabel
          Left = 296
          Top = 41
          Width = 71
          Height = 14
          Caption = 'Data da Sa'#237'da'
        end
        object Label66: TLabel
          Left = 528
          Top = 41
          Width = 53
          Height = 14
          Caption = 'Data Base'
        end
        object ed_datafat: TDateEdit
          Left = 144
          Top = 7
          Width = 115
          Height = 21
          NumGlyphs = 2
          TabOrder = 0
          OnExit = ed_datafatExit
        end
        object ed_serie: TEdit
          Left = 373
          Top = 6
          Width = 33
          Height = 22
          CharCase = ecUpperCase
          Color = 16776176
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          MaxLength = 3
          ParentFont = False
          TabOrder = 1
          OnKeyDown = ed_serieKeyDown
        end
        object ed_nf: TEdit
          Left = 587
          Top = 6
          Width = 73
          Height = 22
          CharCase = ecUpperCase
          Color = 16776176
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          MaxLength = 9
          ParentFont = False
          TabOrder = 2
          OnExit = ed_nfExit
          OnKeyPress = ed_cargaKeyPress
        end
        object gb_nf: TGroupBox
          Left = 4
          Top = 59
          Width = 700
          Height = 137
          Caption = 'Dados da(s) Nota(s) '
          TabOrder = 6
          object Label15: TLabel
            Left = 27
            Top = 26
            Width = 91
            Height = 14
            Caption = 'C'#243'digo Hist'#243'rico'
          end
          object c_hist: TSpeedButton
            Left = 208
            Top = 22
            Width = 23
            Height = 22
            Enabled = False
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
              333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
              C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
              F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
              F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
              00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
              3333333373FF7333333333333000333333333333377733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = c_histClick
          end
          object Label22: TLabel
            Left = 27
            Top = 74
            Width = 51
            Height = 14
            Caption = 'Encargos'
          end
          object Label18: TLabel
            Left = 189
            Top = 69
            Width = 62
            Height = 14
            Caption = 'Mensagem'
          end
          object btnMens: TSpeedButton
            Left = 280
            Top = 65
            Width = 23
            Height = 22
            Enabled = False
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
              333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
              C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
              F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
              F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
              00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
              3333333373FF7333333333333000333333333333377733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = btnMensClick
          end
          object ed_hist: TMaskEdit
            Left = 122
            Top = 22
            Width = 78
            Height = 22
            BevelKind = bkFlat
            BorderStyle = bsNone
            CharCase = ecUpperCase
            MaxLength = 10
            TabOrder = 0
            OnEnter = ed_histEnter
            OnExit = ed_histExit
            OnKeyDown = ed_histKeyDown
          end
          object p_hist: TPanel
            Left = 240
            Top = 22
            Width = 436
            Height = 22
            Alignment = taLeftJustify
            BevelInner = bvLowered
            Color = 14081504
            TabOrder = 1
          end
          object ed_encargos: TCurrencyEdit
            Left = 82
            Top = 71
            Width = 65
            Height = 21
            AutoSize = False
            DisplayFormat = '0.00, %'
            MaxLength = 5
            TabOrder = 2
          end
          object mMens: TMemo
            Left = 306
            Top = 65
            Width = 370
            Height = 57
            MaxLength = 300
            TabOrder = 4
          end
          object edtMens: TEdit
            Left = 255
            Top = 65
            Width = 25
            Height = 22
            BevelKind = bkFlat
            BorderStyle = bsNone
            CharCase = ecUpperCase
            MaxLength = 3
            TabOrder = 3
            OnEnter = edtMensEnter
            OnExit = edtMensExit
            OnKeyDown = edtMensKeyDown
          end
        end
        object gb_Transportadora: TGroupBox
          Left = 4
          Top = 201
          Width = 700
          Height = 128
          Caption = 'Transportadora'
          Font.Charset = ANSI_CHARSET
          Font.Color = 7274496
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 7
          object Label5: TLabel
            Left = 40
            Top = 47
            Width = 86
            Height = 14
            Caption = 'Transportadora'
          end
          object c_transp: TSpeedButton
            Left = 170
            Top = 43
            Width = 23
            Height = 22
            Enabled = False
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
              333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
              C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
              F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
              F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
              00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
              3333333373FF7333333333333000333333333333377733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = c_transpClick
          end
          object Label11: TLabel
            Left = 13
            Top = 20
            Width = 113
            Height = 14
            Caption = 'Transp. Redespacho'
          end
          object c_redespacho: TSpeedButton
            Left = 170
            Top = 16
            Width = 22
            Height = 22
            Enabled = False
            Flat = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
              333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
              C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
              F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
              F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
              00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
              3333333373FF7333333333333000333333333333377733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
            OnClick = c_redespachoClick
          end
          object Label8: TLabel
            Left = 98
            Top = 75
            Width = 28
            Height = 14
            Caption = 'Placa'
          end
          object Estado: TLabel
            Left = 352
            Top = 75
            Width = 44
            Height = 14
            Caption = 'UF Placa'
          end
          object Label7: TLabel
            Left = 73
            Top = 102
            Width = 53
            Height = 14
            Caption = 'Motorista'
          end
          object ed_transp: TEdit
            Left = 130
            Top = 43
            Width = 33
            Height = 22
            BevelKind = bkFlat
            BorderStyle = bsNone
            CharCase = ecUpperCase
            MaxLength = 3
            TabOrder = 2
            OnEnter = ed_transpEnter
            OnExit = ed_transpExit
            OnKeyDown = ed_transpKeyDown
            OnKeyPress = ed_cargaKeyPress
          end
          object p_transp: TPanel
            Left = 200
            Top = 43
            Width = 481
            Height = 22
            Alignment = taLeftJustify
            BevelInner = bvLowered
            Color = 14081504
            TabOrder = 3
          end
          object ed_redespacho: TEdit
            Left = 130
            Top = 16
            Width = 33
            Height = 22
            BevelKind = bkFlat
            BorderStyle = bsNone
            CharCase = ecUpperCase
            MaxLength = 3
            TabOrder = 0
            OnEnter = ed_redespachoEnter
            OnExit = ed_redespachoExit
            OnKeyDown = ed_redespachoKeyDown
            OnKeyPress = ed_cargaKeyPress
          end
          object p_redespacho: TPanel
            Left = 200
            Top = 16
            Width = 481
            Height = 22
            Alignment = taLeftJustify
            BevelInner = bvLowered
            Color = 14081504
            TabOrder = 1
          end
          object ed_placa: TEdit
            Left = 130
            Top = 71
            Width = 97
            Height = 22
            BevelKind = bkFlat
            BorderStyle = bsNone
            CharCase = ecUpperCase
            MaxLength = 8
            TabOrder = 4
          end
          object ed_ufPlaca: TEdit
            Left = 400
            Top = 71
            Width = 33
            Height = 22
            BevelKind = bkFlat
            BorderStyle = bsNone
            CharCase = ecUpperCase
            MaxLength = 2
            TabOrder = 5
            OnExit = ed_ufPlacaExit
          end
          object ed_motorista: TEdit
            Left = 130
            Top = 98
            Width = 550
            Height = 22
            BevelKind = bkFlat
            BorderStyle = bsNone
            CharCase = ecUpperCase
            MaxLength = 40
            TabOrder = 6
          end
        end
        object ed_entrada: TDateEdit
          Left = 144
          Top = 38
          Width = 115
          Height = 21
          NumGlyphs = 2
          TabOrder = 3
        end
        object ed_saida: TDateEdit
          Left = 373
          Top = 38
          Width = 115
          Height = 21
          NumGlyphs = 2
          TabOrder = 4
        end
        object ed_base: TDateEdit
          Left = 587
          Top = 38
          Width = 115
          Height = 21
          NumGlyphs = 2
          TabOrder = 5
        end
      end
    end
  end
  inherited Panel4: TPanel
    Top = 441
    Width = 726
    inherited btnCancelar1: TBitBtn
      Left = 219
      Top = 12
    end
    inherited btnFechar1: TBitBtn
      Left = 620
      Top = 12
    end
    inherited BtnEliminar1: TBitBtn
      Left = 18
      Top = 12
    end
    inherited btnlistagem1: TBitBtn
      Left = 419
      Top = 12
    end
    inherited btnGravar: TFlatButton
      Left = 7
      Caption = '&Faturar'
      OnClick = btnGravarClick
    end
    inherited BtnEliminar: TFlatButton
      Left = 144
      Top = 39
      Width = 113
      Visible = False
    end
    inherited btnCancelar: TFlatButton
      Left = 206
    end
    inherited btnlistagem: TFlatButton
      Left = 405
      OnClick = btnlistagemClick
    end
    inherited btnFechar: TFlatButton
      Left = 604
    end
  end
  inherited BS: TStatusBar
    Top = 489
    Width = 726
  end
  object pnlQuant: TPanel [4]
    Left = 691
    Top = 53
    Width = 273
    Height = 112
    BevelInner = bvRaised
    BorderWidth = 2
    Color = 11385278
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Visible = False
    object Label17: TLabel
      Left = 38
      Top = 25
      Width = 66
      Height = 13
      Caption = 'Quantidade'
    end
    object btnQuantOK: TBitBtn
      Left = 80
      Top = 65
      Width = 113
      Height = 25
      Caption = '&Ok'
      TabOrder = 1
      OnClick = btnQuantOKClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
    end
    object edtNovaQuant: TCurrencyEdit
      Left = 114
      Top = 23
      Width = 121
      Height = 21
      AutoSize = False
      DecimalPlaces = 3
      DisplayFormat = '0'
      TabOrder = 0
    end
  end
  object p_codfisc: TPanel [5]
    Left = 691
    Top = 117
    Width = 257
    Height = 129
    BevelInner = bvRaised
    BorderWidth = 2
    Color = 11385278
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    Visible = False
    object Label12: TLabel
      Left = 56
      Top = 26
      Width = 77
      Height = 13
      Caption = 'C'#243'digo Fiscal'
    end
    object c_cfItem: TSpeedButton
      Left = 179
      Top = 21
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = c_cfItemClick
    end
    object ed_cfItem: TMaskEdit
      Left = 138
      Top = 22
      Width = 40
      Height = 21
      CharCase = ecUpperCase
      EditMask = '9.999;1; '
      MaxLength = 5
      TabOrder = 0
      Text = ' .   '
      OnEnter = ed_cfItemEnter
      OnExit = ed_cfItemExit
      OnKeyDown = ed_cfItemKeyDown
    end
    object p_cfItem: TPanel
      Left = 11
      Top = 55
      Width = 237
      Height = 22
      Alignment = taLeftJustify
      BevelInner = bvLowered
      TabOrder = 1
    end
    object b_ok: TBitBtn
      Left = 75
      Top = 90
      Width = 113
      Height = 25
      Caption = '&Ok'
      TabOrder = 2
      OnClick = b_okClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
    end
  end
  object pnlCodigos: TPanel [6]
    Left = 691
    Top = 171
    Width = 561
    Height = 182
    BevelInner = bvRaised
    BorderWidth = 2
    Color = 11385278
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    Visible = False
    object Label14: TLabel
      Left = 62
      Top = 25
      Width = 77
      Height = 13
      Caption = 'C'#243'digo Fiscal'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object c_cf: TSpeedButton
      Left = 185
      Top = 21
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = c_cfClick
    end
    object Label16: TLabel
      Left = 26
      Top = 62
      Width = 113
      Height = 13
      Caption = 'C'#243'digo da Natureza'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object c_natureza: TSpeedButton
      Left = 185
      Top = 57
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = c_naturezaClick
    end
    object Label13: TLabel
      Left = 27
      Top = 98
      Width = 112
      Height = 13
      Caption = 'Regra de pagmento'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object btnRegra: TSpeedButton
      Left = 185
      Top = 93
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = btnRegraClick
    end
    object ed_cf: TMaskEdit
      Left = 145
      Top = 21
      Width = 40
      Height = 21
      CharCase = ecUpperCase
      EditMask = '9.999;1; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxLength = 5
      ParentFont = False
      TabOrder = 0
      Text = ' .   '
      OnEnter = ed_cfEnter
      OnExit = ed_cfExit
      OnKeyDown = ed_cfKeyDown
    end
    object p_cf: TPanel
      Left = 208
      Top = 21
      Width = 331
      Height = 22
      Alignment = taLeftJustify
      BevelInner = bvLowered
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
    end
    object btnOK: TBitBtn
      Left = 224
      Top = 135
      Width = 113
      Height = 28
      Caption = '&Ok'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btnOKClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
    end
    object p_natureza: TPanel
      Left = 208
      Top = 57
      Width = 331
      Height = 22
      Alignment = taLeftJustify
      BevelInner = bvLowered
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
    end
    object ed_natureza: TEdit
      Left = 145
      Top = 57
      Width = 40
      Height = 22
      BevelKind = bkSoft
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 2
      TabOrder = 1
      OnEnter = ed_naturezaEnter
      OnExit = ed_naturezaExit
      OnKeyDown = ed_naturezaKeyDown
      OnKeyPress = ed_cargaKeyPress
    end
    object pnlRegra: TPanel
      Left = 208
      Top = 93
      Width = 331
      Height = 22
      Alignment = taLeftJustify
      BevelInner = bvLowered
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
    end
    object edtRegra: TEdit
      Left = 145
      Top = 93
      Width = 40
      Height = 22
      BevelKind = bkSoft
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 2
      TabOrder = 2
      OnEnter = edtRegraEnter
      OnExit = edtRegraExit
      OnKeyDown = edtRegraKeyDown
    end
  end
  object pnlBarra: TPanel [7]
    Left = 0
    Top = 420
    Width = 726
    Height = 21
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Color = 14936298
    TabOrder = 7
    object pb: TGauge
      Left = 2
      Top = 2
      Width = 722
      Height = 17
      Align = alClient
      BackColor = 14936298
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Progress = 0
    end
  end
  inherited Timer1: TTimer
    Left = 550
    Top = 0
  end
  inherited RDP: TRDprint
    Left = 578
    Top = 0
  end
  object cdsped: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 494
    object cdspedPedido: TStringField
      FieldName = 'Pedido'
      Size = 9
    end
    object cdspedEnt_codigo: TStringField
      FieldName = 'Ent_codigo'
      Size = 5
    end
    object cdspedEnt_nome: TStringField
      FieldName = 'Ent_nome'
      Size = 40
    end
    object cdspedordem: TStringField
      FieldName = 'ordem'
      Size = 3
    end
    object cdspedbkpPedido: TStringField
      FieldName = 'bkpPedido'
    end
    object cdspedCFOP: TStringField
      FieldName = 'CFOP'
    end
    object cdspedNatureza: TStringField
      FieldName = 'Natureza'
      Size = 2
    end
    object cdspedRegra: TStringField
      FieldName = 'Regra'
      Size = 3
    end
  end
  object dsped: TDataSource
    DataSet = cdsped
    Left = 522
  end
  object dsItens: TDataSource
    DataSet = cdsItens
    Left = 466
  end
  object cdsItens: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 438
    object cdsItensPro_codigo: TStringField
      FieldName = 'Pro_codigo'
      Size = 15
    end
    object cdsItenspr_nome: TStringField
      FieldName = 'pr_nome'
      Size = 50
    end
    object cdsItensqtde: TFloatField
      FieldName = 'qtde'
      DisplayFormat = '0.00000'
    end
    object cdsItensvlr_unit: TFloatField
      FieldName = 'vlr_unit'
    end
    object cdsItenscodFisc: TStringField
      FieldName = 'codFisc'
      OnValidate = cdsItenscodFiscValidate
      Size = 5
    end
    object cdsItensFaturado: TStringField
      FieldName = 'Faturado'
      Size = 3
    end
    object cdsItensPedido: TStringField
      FieldName = 'Pedido'
      Size = 9
    end
    object cdsItensped_item: TStringField
      FieldName = 'ped_item'
      Size = 2
    end
    object cdsItenspendente: TFloatField
      FieldName = 'pendente'
      DisplayFormat = '0.00000'
    end
  end
  object cdsItNota: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 410
    object cdsItNotaPedido: TStringField
      FieldName = 'Pedido'
      Size = 9
    end
    object cdsItNotaPro_codigo: TStringField
      FieldName = 'Pro_codigo'
      Size = 15
    end
    object cdsItNotapr_nome: TStringField
      FieldName = 'pr_nome'
      Size = 50
    end
    object cdsItNotaqtde: TFloatField
      FieldName = 'qtde'
      DisplayFormat = '0.00000'
    end
    object cdsItNotavlr_unit: TFloatField
      FieldName = 'vlr_unit'
    end
    object cdsItNotacodFisc: TStringField
      FieldName = 'codFisc'
      Size = 5
    end
    object cdsItNotaPed_item: TStringField
      FieldName = 'Ped_item'
      Size = 2
    end
    object cdsItNotaFaturado: TStringField
      FieldName = 'Faturado'
      Size = 3
    end
  end
end
